﻿'Params
'event (Required) : An event ID
'public (Optional): Optionally show the share in the sharing users recent activity. Defaults to 0 (false).
'message (Optional): An optional message to send with the recommendation. If not supplied a default message will be used.
'recipient (Required): Email Address | Last.fm Username - A comma delimited list of email addresses or Last.fm usernames. Maximum is 10.
'api_key (Required) : A Last.fm API key.
'api_sig (Required) : A Last.fm method signature. See authentication for more information.
'sk (Required) : A session key generated by authenticating a user via the authentication protocol.
'Auth
'This service requires authentication. Please see our authentication how-to.
'This is a write service and must be accessed with an HTTP POST request. All parameters should be sent in the POST body, including the 'method' parameter. See rest requests for more information. 

Public Class EventShare
	Inherits BaseRequest
    Dim event_ As String
	Dim public_ As String
	Dim message As String
	Dim recipient As String

	Public xmlresponse As XDocument = Nothing

    Public Sub New(event_ As String, public_ As String, message As String, recipient As String)
        Me.event_ = event_
        Me.public_ = public_
        Me.message = message
        Me.recipient = recipient

    End Sub

	Public Sub sendRequest()
        InitializeMembers("event.share")

        AddMember("event", event_, True)
        AddMember("public", public_, False)
		AddMember("message", message, False)
		AddMember("recipient", recipient, True)
        AddMember("api_key", My.Settings.api_key, False)
        'need api_sig (from auth)
        'need sk (from auth)

		xmlresponse = sendPOSTResponse(True)
	End Sub

	'	Public Function getResponse() As AlbumGetInfoResponse
	'	Dim response As New AlbumGetInfoResponse
	'		response.album = New Album(xmlresponse.<lfm>.<album>.First)
	'		Return response
	'	End Function
End Class
